home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual BASIC 5.0 (Ent. Edition) / Vb5ent Extractor.EXE / VB / SAMPLES / COMPTOOL / VBMAIL / MAILOPTF.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-09-16  |  9.1 KB  |  273 lines
  1. VERSION 5.00
  2. Begin VB.Form MailOptFrm 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Mail Options"
  5.    ClientHeight    =   3192
  6.    ClientLeft      =   3060
  7.    ClientTop       =   6060
  8.    ClientWidth     =   7500
  9.    ControlBox      =   0   'False
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    PaletteMode     =   1  'UseZOrder
  14.    ScaleHeight     =   3192
  15.    ScaleWidth      =   7500
  16.    ShowInTaskbar   =   0   'False
  17.    Begin VB.PictureBox MessageOption 
  18.       BorderStyle     =   0  'None
  19.       Enabled         =   0   'False
  20.       Height          =   555
  21.       Left            =   3720
  22.       ScaleHeight     =   552
  23.       ScaleWidth      =   3732
  24.       TabIndex        =   12
  25.       TabStop         =   0   'False
  26.       Top             =   0
  27.       Visible         =   0   'False
  28.       Width           =   3735
  29.       Begin VB.CheckBox retRecip 
  30.          Caption         =   "&Return Receipt"
  31.          BeginProperty Font 
  32.             Name            =   "MS Sans Serif"
  33.             Size            =   9.6
  34.             Charset         =   0
  35.             Weight          =   400
  36.             Underline       =   0   'False
  37.             Italic          =   0   'False
  38.             Strikethrough   =   0   'False
  39.          EndProperty
  40.          Height          =   375
  41.          Left            =   960
  42.          TabIndex        =   8
  43.          Top             =   120
  44.          Width           =   1815
  45.       End
  46.    End
  47.    Begin VB.PictureBox GeneralOption 
  48.       BorderStyle     =   0  'None
  49.       Enabled         =   0   'False
  50.       Height          =   2535
  51.       Left            =   0
  52.       ScaleHeight     =   2532
  53.       ScaleWidth      =   3672
  54.       TabIndex        =   11
  55.       TabStop         =   0   'False
  56.       Top             =   0
  57.       Visible         =   0   'False
  58.       Width           =   3675
  59.       Begin VB.CheckBox DownLoad 
  60.          Caption         =   "&Download Mail"
  61.          BeginProperty Font 
  62.             Name            =   "MS Sans Serif"
  63.             Size            =   9.75
  64.             Charset         =   0
  65.             Weight          =   400
  66.             Underline       =   0   'False
  67.             Italic          =   0   'False
  68.             Strikethrough   =   0   'False
  69.          EndProperty
  70.          Height          =   255
  71.          Left            =   120
  72.          TabIndex        =   1
  73.          Top             =   480
  74.          Width           =   3315
  75.       End
  76.       Begin VB.CheckBox NewSess 
  77.          Caption         =   "&New Session"
  78.          BeginProperty Font 
  79.             Name            =   "MS Sans Serif"
  80.             Size            =   9.75
  81.             Charset         =   0
  82.             Weight          =   400
  83.             Underline       =   0   'False
  84.             Italic          =   0   'False
  85.             Strikethrough   =   0   'False
  86.          EndProperty
  87.          Height          =   255
  88.          Left            =   120
  89.          TabIndex        =   2
  90.          Top             =   840
  91.          Width           =   3195
  92.       End
  93.       Begin VB.CheckBox LogonUI 
  94.          Caption         =   "&Logon UI"
  95.          BeginProperty Font 
  96.             Name            =   "MS Sans Serif"
  97.             Size            =   9.75
  98.             Charset         =   0
  99.             Weight          =   400
  100.             Underline       =   0   'False
  101.             Italic          =   0   'False
  102.             Strikethrough   =   0   'False
  103.          EndProperty
  104.          Height          =   315
  105.          Left            =   120
  106.          TabIndex        =   3
  107.          Top             =   1200
  108.          Width           =   3135
  109.       End
  110.       Begin VB.TextBox UserName 
  111.          BeginProperty Font 
  112.             Name            =   "System"
  113.             Size            =   9.6
  114.             Charset         =   0
  115.             Weight          =   700
  116.             Underline       =   0   'False
  117.             Italic          =   0   'False
  118.             Strikethrough   =   0   'False
  119.          EndProperty
  120.          Height          =   360
  121.          Left            =   1380
  122.          TabIndex        =   5
  123.          Top             =   1620
  124.          Width           =   2115
  125.       End
  126.       Begin VB.TextBox MailPassWord 
  127.          BeginProperty Font 
  128.             Name            =   "System"
  129.             Size            =   9.75
  130.             Charset         =   0
  131.             Weight          =   700
  132.             Underline       =   0   'False
  133.             Italic          =   0   'False
  134.             Strikethrough   =   0   'False
  135.          EndProperty
  136.          Height          =   360
  137.          Left            =   1380
  138.          PasswordChar    =   "*"
  139.          TabIndex        =   7
  140.          Top             =   2040
  141.          Width           =   2115
  142.       End
  143.       Begin VB.CheckBox SendMapiDLG 
  144.          Caption         =   "&Send with MAPI Dialogs"
  145.          BeginProperty Font 
  146.             Name            =   "MS Sans Serif"
  147.             Size            =   9.75
  148.             Charset         =   0
  149.             Weight          =   400
  150.             Underline       =   0   'False
  151.             Italic          =   0   'False
  152.             Strikethrough   =   0   'False
  153.          EndProperty
  154.          Height          =   315
  155.          Left            =   120
  156.          TabIndex        =   0
  157.          Top             =   60
  158.          Width           =   3255
  159.       End
  160.       Begin VB.Label Label1 
  161.          AutoSize        =   -1  'True
  162.          BackStyle       =   0  'Transparent
  163.          Caption         =   "&User Name:"
  164.          BeginProperty Font 
  165.             Name            =   "MS Sans Serif"
  166.             Size            =   9.75
  167.             Charset         =   0
  168.             Weight          =   400
  169.             Underline       =   0   'False
  170.             Italic          =   0   'False
  171.             Strikethrough   =   0   'False
  172.          EndProperty
  173.          Height          =   240
  174.          Left            =   120
  175.          TabIndex        =   4
  176.          Top             =   1740
  177.          Width           =   1080
  178.       End
  179.       Begin VB.Label Label2 
  180.          AutoSize        =   -1  'True
  181.          BackStyle       =   0  'Transparent
  182.          Caption         =   "&Password:"
  183.          BeginProperty Font 
  184.             Name            =   "MS Sans Serif"
  185.             Size            =   9.75
  186.             Charset         =   0
  187.             Weight          =   400
  188.             Underline       =   0   'False
  189.             Italic          =   0   'False
  190.             Strikethrough   =   0   'False
  191.          EndProperty
  192.          Height          =   240
  193.          Left            =   240
  194.          TabIndex        =   6
  195.          Top             =   2160
  196.          Width           =   945
  197.       End
  198.    End
  199.    Begin VB.CommandButton CancelBt 
  200.       Cancel          =   -1  'True
  201.       Caption         =   "Cancel"
  202.       Height          =   375
  203.       Left            =   1980
  204.       TabIndex        =   10
  205.       Top             =   2640
  206.       Width           =   1035
  207.    End
  208.    Begin VB.CommandButton OkBt 
  209.       Caption         =   "OK"
  210.       Default         =   -1  'True
  211.       Height          =   375
  212.       Left            =   720
  213.       TabIndex        =   9
  214.       Top             =   2640
  215.       Width           =   1035
  216.    End
  217. Attribute VB_Name = "MailOptFrm"
  218. Attribute VB_GlobalNameSpace = False
  219. Attribute VB_Creatable = False
  220. Attribute VB_TemplateDerived = False
  221. Attribute VB_PredeclaredId = True
  222. Attribute VB_Exposed = False
  223. Private Sub CancelBt_Click()
  224.     ' Unload the current form, and don't save changes.
  225.     Unload Me
  226. End Sub
  227. Private Sub Form_Load()
  228.     ' Setup initial values for the check boxes and edit fields.
  229.     UserName = VBMail.MapiSess.UserName
  230.     MailPassWord = VBMail.MapiSess.Password
  231.     NewSession = Abs(VBMail.MapiSess.NewSession)
  232.     LogonUI = Abs(VBMail.MapiSess.LogonUI)
  233.     DownLoadMail = Abs(VBMail.MapiSess.DownLoadMail)
  234.     SendMapiDLG = Abs(SendWithMapi)
  235.     retRecip = Abs(ReturnRequest)
  236.     Select Case OptionType
  237.         Case conOptionMessage
  238.             Call SetupOptionForm(MessageOption)
  239.         Case conOptionGeneral
  240.             Call SetupOptionForm(GeneralOption)
  241.     End Select
  242. End Sub
  243. Private Sub Form_Unload(Cancel As Integer)
  244.     Select Case OptionType
  245.         Case conOptionMessage
  246.             Call SetupOptionForm(MessageOption)
  247.         Case conOptionGeneral
  248.             Call SetupOptionForm(GeneralOption)
  249.     End Select
  250. End Sub
  251. Private Sub OkBt_Click()
  252.     ' Save the user's changes.
  253.     ' Feature addition: Save values to an .INI file.
  254.     VBMail.MapiSess.UserName = UserName
  255.     VBMail.MapiSess.Password = MailPassWord
  256.     VBMail.MapiSess.NewSession = NewSession
  257.     VBMail.MapiSess.LogonUI = LogonUI
  258.     VBMail.MapiSess.DownLoadMail = DownLoadMail
  259.     SendWithMapi = SendMapiDLG
  260.     ReturnRequest = retRecip
  261.     Unload Me
  262. End Sub
  263. Private Sub SetupOptionForm(BasePic As Control)
  264.     BasePic.Top = 0
  265.     BasePic.Left = 0
  266.     BasePic.Visible = True
  267.     BasePic.Enabled = True
  268.     OkBt.Top = BasePic.Height + 120
  269.     CancelBt.Top = BasePic.Height + 120
  270.     Me.Width = BasePic.Width + 120
  271.     Me.Height = OkBt.Top + OkBt.Height + 495
  272. End Sub
  273.